Limit (1-x^2)EllipticK[x] for x->1